E. Mahoney and Company 



and S&onlt&jf 

4289 FRA2HO RD. #101 
Warren, Michigan 48091 



(313) 757-7093 



Robert Fabris June 6, 1984 

c/o Aracdian 

3626 Morrie Drive 

San Jose, California 95127 



Dear Bob: 

I saw your request for programs in the last issue of the Arcadian, 
so I have included two programs which I've written from scratch to 
be used for the newsletter. Enclosed is also the tape containing 
the programs. 

The first program is called the "Game of War", it starts at tape 
counter number 20 and is duplicated at counter 30 and 40. This is 
the classic game of war with the computer doing all the work and 
the players watching the outcome. 

The second game is called "Koncentration" , it starts at tape counter 
number 60 and is duplicated at counter 70 and 80. This is a two 
player game using the keypad and the triggers (two hand controllers) 
It is a take-off the TV game called Concentration. The object is 
to match the letters and win the most points. There are levels of 
play, easy and hard. See the instructions for more detail. 

I don't know if these programs qualify for your contest, but if they 
do please enter me. My main objective is to provide your readers 
with these programs so that they may be published in the Arcadian 
and hopefully enjoyed by the readership. 

I don't have a printer, so the typed programs will have to serve as 
the progrm listings. I have enjoyed the newsletter very much and 
look forward to more difficult programs and routines from the good 
programmers out there. 

Well, I hope these programs help fill the Arcadian. Please let me 
know if you have any questions. George Moses and Don Gladden know 
me through the Michigan AstroBugs. 



Yours truly. 
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By Edward Mahoney 

May 27, 1984 ' : ; ;V - ' r - ■ 

CLEAR ; * ( 38 ) -0 ; # ( 39-) =0 

T = 2 0 0 • D = 3 ; N T = 8 ; S= 36 ; i 0 = 1 7 6 ; FD? I 0 1 i C X =H ; C Y = - F ; 

PRINT »K0NGENTRATI0N«, ;CX=H;0Y=T6;NT»Q 
PRINT "EASY=1 " ;CX=H ; PRINT "HARD=2" ; 

INPUT "1 OR> 2^ ,, G;NT = 8r&(9)fe255 , . . ' 

FOR 1=1 T036STEP2-;* (l)=RND (26 ) +64 ; * ( 1+1 )=* ( I ) > 

NEXT IjFOR 1=1 T036 ' , ' 

A=RND (36) ;K0)=*(A) i*(A).<=HD ;*(I)=*(0) JjEXT I 
A=RND (36);B=RND (36) ; IF A#BIF *(A)=*(B) *U) = 36; 

*(B)=36;B0X 0,0,1 59, F ,2;G0T0 10 

BC=RND (320x 8;FC==«ND (32)k8-3;F0F Y=-2BTD35OTP1 6 ; 

MU=Y>MU+1 42 ;F0R X=-63T080STEP' 16;MU=X; BOX X,Y,1 5,15,1 
BOX' X,Y,9,9,D;NEXT' X ;NEXT Y ;MU+60 ;MB=53 ;MU=44 ;MU=35 ;E= 

FOR Y=-28T035STEP 16;F0R X=-63T080STEP 1 6;CX-X;CY=Y; 

IF G=1 IF D=3 TV=*(E) 

IF D=1 CX=X-3 

IF D=1 IF KIOPRINT #0,0, E, 

IF D=1 IF E>9PRINT #0,E, 

E=E+1 ;NEXT X ; NEXT YjMU=T 60 ; F!TJ=1 40 ;MU=1 S6jFltt=t20 
IF TR (1 )G0T0 T 
MU=50^MU=39;MU=44;GOTO 170 

D=1 ; T=507;M=1 ;GOTO 10 - - - ■■■■>* 1 - 

NT=0 ; CX=1 2 ;CY=-F ; IF T=1 PRINT "PLAYER 1 " , {RETURN 
PRINT "PLAYER 2",;RETURN „ 

GOSUB j ;NT=o VOX=-70 ; GY =F : i INPUT ".BOX 1 "A ; CX- - 46 ; CY=F ; 

C=A ;GOSUB K jCX=-70 ;CY=32 ; INPUT "BOX 2"B 

IF A=B CX=-69 ;CY=-F ; PRINT "BOX 2 = BOX 1 NO! NO!",; 

NT=5Cf;GOSUB L ; BOX' O f F;159,9,2;GOT0|3OO " 

CX=-46;CY=32;C=B;GOSUB K;lF *U)=36 IF «(B)=36Q0TO-N v 
IF *(A)=36GOTO • 

IF *(B)=36GOTO • • a.:- " 

IF *(a)=*(B) GOTO 3020 - 

C x = - 6 0 ; C Y = - F ; PR I N T " N 6 ^ AT C S " , ; N T ^ 2 0 G 0 S UB ‘ ‘ L ■ 

IF S<3CX=-60?CY=-F;G0SUB I ;NT=0; PRINT 'WGAMEOTIR PULL TR(1 )", ; 

GOTO J+Q - : " : 5 : ' : " ; 

IF T=1T=2;G0SUB 250;G0T0 
T=1 jGOSUB 25 O 
IF TR (T ) GOTO 300 
IF S=0 GOTO 502 
GOTO 510 






<2 



KCNCENTRATION CONTINUED 



1000 PRINT "MATCH ! !" , ;NT=50;MU=50;MU=60;MU=33;MU=39;NT=5; 

E=1 ;FOR Y--28T035STEP 16;F0R X=- 63T080STEP1 6 ; CX=X ; CY=Y 
1010 MU=X;MU=Y;IF E=A C=A ; S=S-1 ;GOTO P 
1020 IF E-B C=B;S=S-1 ;G0T0 P 
1090 E-E+1 ;NEXT XjNEXT Y {RETURN 

2200 PRINT #0,C, ;TV=*(C) ; RETURN 
2300 BOX X,Y,15,15,2;TV=*(C);*(C)=0;G0T0 1090 
2400 FOR I=1T03;MU=241 ;MU=216;MU=205;NEXT I ; RETURN 
3000 * (T+37 )=* (T+37 ) +1 64 -V 

3010 *(T+37)=*(T+37)+l64 

3020 * (T + 37 ) = * ( T + 3 7 ) + * ( A ) + * ( B ) 

3030 CX=25 ; CY-F ; IF M PRINT "1 ;CX=25 ;PRINT »2-*»;M=0 

3040 CX=F ; CY=F ; PR INT #1 ,*( 38 ); CX=F ; PRINT #1 , * (39 ) 

3050 CX=-30;CY=-F ;GOSUB Q;GOSUB 250;G0T0 510 

4000 BOX -F , 36, 81 ,16,2 ;BOX 0 , -F , 1 59 , 9 , 2 ;RETURN 
5000 IF TR ( 1 ) RUN 
501 0 GOTO J+Q 



NOTE: ALL LETTER "O's" USED AS VARIABLES ARE DARKENED IN. 



AFTER THE PROGRAM HAS BEEN TYPED, ENTER THESE VALUES FOR THE FOLLOWING 
LETTERS: 

F = 40; H = -39 ; J-4000; K=2200; L=2400; N-3000; 0 = 3010; P=2300; Q=1 000 



This is a two player game using the trigger to start play and the keypad 
to enter the box numbers for matching. Points are awarded based on the 
numeric value of the" letter matched. Bonus points are awarded if a 
"$" dollar sign is matched with a letter ( 1 6 4 points). The "$" is also 
a wild card allowing the player to continue. The game is finished 
when all the letters have been matched or no matched letters are left. 
There are two levels of play: Easy level shows the letters that are in 
the board to be matched (use this level for youngsters); Hard level does 
not show the letters. Pull trigger tt 1 to initiate the game when the 
numbers appear on the board. Good Luck. 




THE GAME OF WAR 



E. MAHONEY 
4289 Frazho Rd. 
Warren, Mich 48091 
(313) 757-7093 



1 . The Game of War 

2. By Edward Mahoney 

3. June 2, 1 984 

10. CLEAR; BC=1 0 ;FC=1 90 ; & ( 9 ) -87 ; & ( 0 ) =43 ; & ( 1 ) =43 ; & ( 2 ) =1 26 ; 

&(3)=1 26;G0SUB 15;G0T0 S-5 

15. CY=0;CX=-27 {PRINT "SHUFFLING" {FOR 1-1 TO 300 

16. A=RND (52){B=RND ( 52 ) ; * ( 0 ) = * ( A ) ; * ( A ) =* ( B ) ; * ( B ) =# ( 0 ) : 

NEXT I {RETURN 

20. C= (Ex2 ) +T {RETURN 

30. D=(Fx2)*T {RETURN 

40. G=*(E)+Q;«=*(F)tQ;RETURN 

50. I=*( I )*Q {RETURN 

61. TV=74 {RETURN 

62. TV = 81 {RETURN 

63. TV-75 {RETURN 

64. TV=65 {RETURN 

70. IF (M-U<1 ) + (N-U<1 )goto S 

75. RETURN 

80. L=53 {FOR CY-24T0 -8STEP -8;F0R CX--70T0 70STEP 1 32 ;TV=*(L) ; 
NEXT CX ;L=L+1 {NEXT CY 

90. CX=-65 ;CY=35 ;G0SUB 92; CX=20;GOSUB 92 {RETURN 

92. PRINT "CARD #" , {RETURN 
100. L=50;H=-50;B=M-40{ J=N-40;Y=B 
110. FOR W=1T0 2 {BOX H , - 1 0 , 22 , 62 , 2 
120. FOR A=- 42T0 YSTEP 2;B0X H, A, 22, 1,1 
130. NEXT A;H=L;Y=J{NEXT W 
200. FOR A=-60T0 -38 
210. BOX -H,B, 22,1 ,1 {BOX -H,B,22,1,2 
220. BOX A , B , 3 » 1 j.2 ; BOX A + 18,B,3,1,1 
230. BOX L,J,22,1 ,1 ;B0X L, 1,22,1,2 
240. BOX -A, J, 3, 1 ,2 {BOX - A-1 8 , J , 3 , 1 , 1 
250. NEXT A;X=-28;L=-37;H--2 
260. FOR W=1T02;F0R Y=BTO LSTEP H 
270. BOX X , Y , 20 , 1 , 3 ; BOX X,Y,20,1,3 

280. BOX X , B , 20 , 2 , 2 ; NEXT Y;L-20;H-2;B-J ;X=28 {NEXT W 

290. BOX X , - 31 ,20,2,2; BOX 20, J, 39, 2, 2 

300. BOX 0,-30,17,20,1 ;BOX 0,-30,13,18,2 

310. BOX 0,30,17,20,1 {BOX 0,30,13,18,2 

320. X=-2 {RETURN 



NOTE: THE PERIOD (.) IS NOT NEEDED FOR THE LINE NUMBERS AFTER LINE 
NUMBER THREE (3). STARTING WITH LINE NUMBER TEN (10) LEAVE OUT THE 
PERIODS. 




THE GAME OF WAR CONTINUED 



E. MAHONEY 



400. BOX 0,-30,17,20,3;B0X 0,-30,17,20,1 

410. BOX 0,30,17,20,3; BOX 0 , 30 , 1 7 , 20 , 1 jRETURN 

420. BOX 0 , 0 , 70 , 24> 2 ; RETURN 

500. FOR Z=KTO PSTEP 2 ; IF ^ (Z ) =87 5&(Z)=L 

520. NEXT Z ;U=0 ;RETURN 

800. CX=-27 ;CY=35 ; PRINT #2,E, ;CX=58 ; PRINT #2,F, 

810. CX=X ; CY-Y+4; IF I#1 OBOX X+4, GY , 8 , 8 , 2 
820. IF I 10GOSUB I+50;G0T0 840 
830. PRINT #0,1, 

840. CX=X+6 ; CY=Y- 5 ; TV=RM ;RETURN 
1000. U=0;M=26;N=26;E=RND (52);F=RND (52);G0SUB 80;G0SUB 20; 
GOSUB 30 ; GOSUB Q 

1040. GOSUB 70 ; IF E*52E=1 ;GOSUB 20 
1050. IF %(C)#77E=E+1 ;GOSUB 20;G0T0 V 
1060. IF F>52F=1 ;G0SUB 30 
1 070. IF %(D)#89F-F + 1 ;GOSUB 30;GOTOl1060 

1080. I=E ; GOSUB 50 ;Y=-30 ;GOSUB R;I=F;GOSUB 50 ; Y=30 ;GOSUB R 

1100. GOSUB 40 ; IF G=# ; CX=-20 ; CY=8 ; PRINT " WAR" ;U=U+1 ;GOSUB 70; 

%(C)=87;%(D)-87;GOTO 2040 

2000. CX=-20;CY=-8;IF G>«PRINT "*» I WIN" ; M=M+U+1 ;N=N-U- 1 ; 

L=77 ; % (D ) =L ; IF U GOSUB 500 

2010. IF GCOPRINT "YOU WIN ♦" ; N=N+U+1 ; M=M-U-1 ; L = 89 ; % ( C ) =L ; 

IF U GOSUB 500 

2030. CX=-71 ,CY=-24iPRINT #2 , M , ; CX=68 ; PRINT #2,N;CX=-68; 

PRINT ;CX = 69; PRINT , 

2040. E=E+1 ;F-F+1 ;GOSUB 20;G0SUB 30;F0R Z=1TO V;NEXT Z 
2050. GOSUB 400 ; GOSUB 420;G0SUB Q;GOTO V 

5000. FOR 1 = 1 TO 1 0 ; GOSUB 420 ; CX = - 27 ; CY = 0 ; PR INT "_GAME OVER", 
5010. FOR Z=1 TO V ; NEXT Z;NEXT I 



NOTE: ALL LETTER "O's" USED AS VARIABLES ARE DARKENED IN. 

AFTER THE PROGRAM HAS BEEN TYPED, ENTER THESE VALUES FOR THE FOLLOWING 
LETTERS: 



K=20262; P=20364; Q=100; R=800; S=5000; T=20260; V=1 040 

SEE THE NEXT PAGE FOR THE VARIABLE DATA THAT MUST BE INPUTTED INTO 
MEMORY AND THE (*) ARRAYS. 



This is a two player or one player game where the computer does all 
the work and you just watch to see who wins. It is the classic 
game of war where each player tries to take the other players card 
with a larger card. If the cards match each other, then a "war" 
condition exists and the next cards are selected to see who wins the 
war. Points are awarded based on the number of cards won. The 
player who takes all the other player's cards wins. This game can 
take several hours if the game conditions are right. The cards are 
shuffled at the beginning of each game, but at the end of every 
game reload the program and let the computer reshuffle since the 

ownership of each card has been altered during the game. 




THE GAME OF WAR INPUT DATA 



EDWARD MAHONET 



1 . First you must load the ownership of each card into memory using 
this unnumbered routine: 

FOR 1=20262 TO 20364 STEP 4 ; $( I ) =77 ; % ( 1+2 ) =89 ; NEXT I 

2. Then you should randomize the ownership of the cards by using the 
the following unnumbered routine: 

FOR 1=1 TO 300;A=RND (52) x2 + 20260 ; B=RND ( 52 ) x2 + 20260 ; * ( 0 ) = $ ( A ) ; 

%(A) = 36(B) ;%(B)=*(0) ;NEXT I 

3. Use the routine shown in Volume 6 No. 6 page 58 (shoot the duck) 
to load and save the data onto the tape. Use the following 
routine to load onto the tape: 



: PRINT %( 20262) ,1 04 

4. Type in the program and also load the card values into tne ( '0 array 
after the program has been typed. Use the following unnumbered 
routine to load the card values: 



FOR 1=1 TO 57; PRINT I,; INPUT ,M, *(l);NEXT I 



Load 


the following 


data usin 


g the above 
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routine , 



go down each column: 



5. Save the main program and the card values in the array using the 
following routine: 



: PRINT % (-24576) , 900 
: PRINT $(20000), 46 

6. Then load from the tape back into memory of the computer the program 
and memory and arrays using the following routine: 

: INPUT $(20262) ; : INPUT % (-24576) ;: INPUT $(20000) 

7. Then save the program in one block on tape using the following 
routine : 



: PRINT $(1 6384). 201 0 



NOTE: 



I HAD TROUBLE 
USING : INPUT. 



WHEN LOADING THE PROGRAM BACK INTO MEMORY 
SO JUST TYPE "RUN" GO WHEN LOADED. 




